home *** CD-ROM | disk | FTP | other *** search
- on xtracopypress
- if the platform contains "Mac" then
- maccopypress()
- else
- openXLib("Xtras\filecopy")
- set fileName to the pathName & "presstxt\" & the name of cast the mouseCast
- if fileName > EMPTY then
- set wFileName to doSaveAsDlg(the pathName & "presstxt\" & the name of cast the mouseCast, "Word@*.rtf")
- if wFileName > EMPTY then
- set result to copyFile(wFileName, fileName)
- put result
- end if
- end if
- closeXLib("Xtras\filecopy")
- end if
- end
-